home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / ZSCORE.PGM < prev    next >
Text File  |  1994-08-22  |  4KB  |  92 lines
  1. ************************************************************************
  2. *ZSCORE.PGM  Version 1.0, 20/FEB/1990                                  *
  3. *An Epi Info program to present anthropometric Z-score distributions   *
  4. *  by Kevin Sullivan, Division of Nutrition, CDC                       *
  5. ************************************************************************
  6. cls
  7. echo
  8. echo
  9. ?Press <Enter> to READ the data file, NUTRI.REC... ?
  10. READ NUTRI.REC
  11. echo
  12.  
  13. ?Press <Enter> to set up the necessary calculations...?
  14. ************************************************************************
  15. ECHO Declaring missing variables based on Record Flag
  16. ************************************************************************
  17. Define NOHA #
  18. Define NOWH #
  19. Define NOWA #
  20. If (flag=1) or (flag=3) or (flag=5) or (flag=7) then NOHA = 1 else NOHA = 0
  21. If NOHA then HAZ=.
  22. If NOHA then HAP=.
  23. If NOHA then HAM=.
  24. If (flag=2) or (flag=3) or (flag=6) or (flag=7) then NOWH = 1 else NOWH = 0
  25. If NOWH then WHZ=.
  26. If NOWH then WHP=.
  27. if NOWH then WHM=.
  28. If (flag>3) and (flag<8) then NOWA = 1 else NOWA = 0
  29. If NOWA then WAZ=.
  30. If NOWA then WAP=.
  31. If NOWA then WAM=.
  32. ************************************************************************
  33. ECHO Defining Z-score categories
  34. ************************************************************************
  35. Define HAZGRP _
  36. Define WHZGRP _
  37. Define WAZGRP _
  38. ************************************************************************
  39. ECHO Creating Z-score categories
  40. * note:  was not able to use recode command with negative numbers      *
  41. ************************************************************************
  42. If HAZ>=-6.00 and HAZ<=-5.0 then HAZGRP="a"
  43. If HAZ>=-4.99 and HAZ<=-4.5 then HAZGRP="b"
  44. If HAZ>=-4.49 and HAZ<=-4.0 then HAZGRP="c"
  45. If HAZ>=-3.99 and HAZ<=-3.5 then HAZGRP="d"
  46. If HAZ>=-3.49 and HAZ<=-3.0 then HAZGRP="e"
  47. If HAZ>=-2.99 and HAZ<=-2.5 then HAZGRP="f"
  48. If HAZ>=-2.49 and HAZ<=-2.0 then HAZGRP="g"
  49. If HAZ>=-1.99 and HAZ<=-1.5 then HAZGRP="h"
  50. If HAZ>=-1.49 and HAZ<=-1.0 then HAZGRP="i"
  51. If HAZ>=-0.99 and HAZ<=-0.5 then HAZGRP="j"
  52. If HAZ>=-0.49 and HAZ<= 0.0 then HAZGRP="k"
  53. recode haz to hazgrp 0.01-0.50=l 0.51-1.00=m 1.01-1.50=n 1.51-2.00=o 2.01-2.50=p 2.51-3.00=q 3.01-3.50=r 3.51-6.00=s
  54. If HAZ= . then HAZGRP=.
  55. If WHZ>=-6.00 and WHZ<=-5.0 then WHZGRP="a"
  56. If WHZ>=-4.99 and WHZ<=-4.5 then WHZGRP="b"
  57. If WHZ>=-4.49 and WHZ<=-4.0 then WHZGRP="c"
  58. If WHZ>=-3.99 and WHZ<=-3.5 then WHZGRP="d"
  59. If WHZ>=-3.49 and WHZ<=-3.0 then WHZGRP="e"
  60. If WHZ>=-2.99 and WHZ<=-2.5 then WHZGRP="f"
  61. If WHZ>=-2.49 and WHZ<=-2.0 then WHZGRP="g"
  62. If WHZ>=-1.99 and WHZ<=-1.5 then WHZGRP="h"
  63. If WHZ>=-1.49 and WHZ<=-1.0 then WHZGRP="i"
  64. If WHZ>=-0.99 and WHZ<=-0.5 then WHZGRP="j"
  65. If WHZ>=-0.49 and WHZ<= 0.0 then WHZGRP="k"
  66. recode whz to whzgrp 0.01-0.5=l 0.51-1.0=m 1.01-1.5=n 1.51-2.0=o 2.01-2.5=p 2.51-3.0=q 3.01-3.5=r 3.51-6.0=s
  67. If WHZ= . then WHZGRP=.
  68. If WAZ>=-6.00 and WAZ<=-5.0 then WAZGRP="a"
  69. If WAZ>=-4.99 and WAZ<=-4.5 then WAZGRP="b"
  70. If WAZ>=-4.49 and WAZ<=-4.0 then WAZGRP="c"
  71. If WAZ>=-3.99 and WAZ<=-3.5 then WAZGRP="d"
  72. If WAZ>=-3.49 and WAZ<=-3.0 then WAZGRP="e"
  73. If WAZ>=-2.99 and WAZ<=-2.5 then WAZGRP="f"
  74. If WAZ>=-2.49 and WAZ<=-2.0 then WAZGRP="g"
  75. If WAZ>=-1.99 and WAZ<=-1.5 then WAZGRP="h"
  76. If WAZ>=-1.49 and WAZ<=-1.0 then WAZGRP="i"
  77. If WAZ>=-0.99 and WAZ<=-0.5 then WAZGRP="j"
  78. If WAZ>=-0.49 and WAZ<= 0.0 then WAZGRP="k"
  79. recode waz to wazgrp 0.01-0.5=l 0.51-1.0=m 1.01-1.5=n 1.51-2.0=o 2.01-2.5=p 2.51-3.0=q 3.01-3.5=r 3.51-6.0=s
  80. If WAZ= . then WAZGRP=.
  81. set ignore=on
  82. ?Press <Enter> to do the report using the command REPORT ZSCORE.RPT
  83. ECHO
  84. ECHO Watch the progress indicator on the upper right..
  85. report zscore.rpt
  86. ECHO
  87. ECHO
  88. ECHO To understand how this report was produced, examine the files,
  89. ECHO ZSCORE.PGM and ZSCORE.RPT in EPED.
  90. ?Use <PgUp> to scroll up or <Enter> to leave ANALYSIS?
  91. QUIT
  92.